SET COLO TO BG+/B
set proc to sospro
SET DELE OFF
DR='N:'
F1='PAT_HL'
F11='HLCORP'
F12='CRPNAM'
f13='pathlnm'
F14='HLDATE'
DO SIGNIT
USE
IF NET_USE("&DR1&F1",.T.,'1',10)
   PACK
   DO SIGNI
   INDE ON PAT_CODCRP+PAT_FILCOD TO &DR1&F1
   DO SIGNI
   inde on pat_codcrp to &DR1&f11
   DO SIGNI
   inde on pat_codcrp+pat_name to &DR1&f12
   DO SIGNI
   inde on pat_name+pat_f_name to &DR1&f13
   DO SIGNI
   INDE ON DTOS(hl_END) TO &DR1&F14
ENDIF
SET EXCLU OFF
USE
return

